PROGRAMIM B▌RDEN FAZLA ╟ALI▐MASIN
AYNI anda bir τok dosya aτma yetene≡ine sahip, MDI formlardan olu■an bir uygulaman²n birden fazla kopyas²n²n yⁿklenmesi mant²ks²z bir durum olurdu. Dⁿ■ⁿnsenize, program ile ili■kilendirilmi■ bir dosyaya t²kland²≡²nda dosya ayr² bir MDI form iτinde aτ²laca≡²na o uygulaman²n ayr² bir kopyas² yⁿkleniyor... E≡er siz de uygulaman²z²n sadece bir kopyas²n²n yⁿklenmesini istiyorsan²z a■a≡²daki kodlar² kullanabilirsiniz.
Private Sub Form_Load()
If App.PrevInstance Then
Kaydet$ = App.Title
App.Title = ' ... ▌kinci Kopya.'
Form1.Caption = ' ... ▌kinci Kopya.'
AppActivate Kaydet$
SendKeys ' % R' , True
End
End If
End Sub